home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Powervisor v1.10b disk1.adf / s / pv / mkeys < prev    next >
Text File  |  1991-09-28  |  1KB  |  33 lines
  1. ;Install memory window keys
  2.  
  3. -openpw memory 0 0 640 200
  4. -openlw memory memory 80 40
  5. -setflag memory 128+32 128+32
  6.  
  7. memptr=0
  8. alias _vm 'on memory {home;m memptr}'
  9. alias _ra 'remattach []'
  10. _vm
  11. _k1={attach '{memptr=memptr-16;_vm}' 03e 01 e}
  12. _k2={attach '{memptr=memptr+16;_vm}' 01e 01 e}
  13. _k3={attach '{memptr=memptr-1;_vm}' 02d 01 e}
  14. _k4={attach '{memptr=memptr+1;_vm}' 02f 01 e}
  15. _k5={attach '{memptr=memptr-(20*16);_vm}' 03f 01 e}
  16. _k6={attach '{memptr=memptr+(20*16);_vm}' 01f 01 e}
  17. _k7={attach '_vm' 02e 01 e}
  18. _k8={attach '{getstring \'Give address\' 256;memptr=eval(input);_vm}' 0f 01 e}
  19. _k9={attach '{v if((mode)&3,if(((mode)&3)==1,{mode word},{mode byte}),{mode long});_vm}' 03c 01 e}
  20. _mkeys={attach '{closepw memory;remvar memptr;_ra \(_k1);_ra \(_k2);_ra \(_k3);_ra \(_k4);_ra \(_k5);_ra \(_k6);_ra \(_k7);_ra \(_k8);_ra \(_k9);_ra _mkeys;remvar _mkeys;unalias _vm;unalias _ra}' 01d 09 e}
  21. remvar _k1 _k2 _k3 _k4 _k5 _k6 _k7 _k8 _k9
  22. print '\0aShift in combination with the following keys on numeric keypad :\0a'
  23. print '   8 (Up)    scroll one line up\0a'
  24. print '   2 (Down)  scroll one line down\0a'
  25. print '   9 (PgUp)  scroll one page up\0a'
  26. print '   3 (PgDn)  scroll one page down\0a'
  27. print '   4 (Left)  scroll one byte left\0a'
  28. print '   6 (Right) scroll one byte right\0a'
  29. print '   5         refresh display\0a'
  30. print '   0         ask new address\0a'
  31. print '   .         switch between byte/word and long mode\0a'
  32. print 'Ctrl+Shift 1 to remove display\0a'
  33.